
module Util.Monad where


whenJust :: Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Nothing  _f = return ()
whenJust (Just x)  f = f x
